home *** CD-ROM | disk | FTP | other *** search
- 10 REM ******************************************************
- 20 REM * Name : Sample Script 1 (logcon.scr)
- 30 REM * Created : April 21/1999 SAE
- 40 REM * Revised :
- 50 REM * Description: This is a script file in BASIC
- 60 REM * that logs all occurances of connection
- 70 REM * to and from the Internet. The log file
- 80 REM * is stored in file C:\DYNIP-CON.LOG
- 90 REM ******************************************************
- 100 REM
- 110 logfile$="c:/dynip-con.log"
- 120 open logfile$ for append as #1
- 130 logdate$=date("dd-MM-yyyy hh:mm:ss")
- 140 a=val(sysvar(CONNECTSTATUS))
- 150 if a = 1 then msg$="Connection to the Internet established" else msg$="Disconnect from the Internet"
- 160 print #1,logdate$;" ";sysvar(INTERNETNAME);" (";sysvar(IPADDRESS);") ";msg$
- 170 close #1
- 180 end
-
-
-
-